home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / oisac2 / lib_p9.txt < prev    next >
Text File  |  1994-03-01  |  828b  |  9 lines
  1. 1 ' *** OISAC 2 *** LIB->P9 ***
  2. 10 CLS:PRINT"**** OISAC 2 *** LIB -> P9 ****";:DEFSEG=0:R=PEEK1716*256:P=PEEK1858+PEEK1859*256:DEFSEG=20480:L$=CHR$(13):FORJ=7TO12:L$=L$+CHR$(PEEK(P+J)):NEXT:GOSUB100:AD=X:S=PEEK(P+2)*4096:P=P+3:GOSUB100:AF=X:D=AF-AD
  3. 15 PRINTL$"("D128+1") -> P9 O/N ? ";:INPUT@1;R$:IFR$<>"O"THEN50ELSEDEFSEG=0:P=R-150:GOSUB100:D9=X:IFD>FRE1THENPRINT"RAM < LIB":END
  4. 20 P=1703:GOSUB100:DM=X:a=D9+D:X=a:GOSUB200:P=R-147:GOSUB200:P=R-165:GOSUB200:P=1706:GOSUB100:FM=X:I=FM-DM:X=D9+D+I:GOSUB200:P=R-162:GOSUB200:P=1771:GOSUB100:A=X:f=DM-1:e=I+f:o=a+I-1:POKEP,204:POKEP+1,247:POKEP+2,5:GOSUB2090
  5. 40 POKEP,A MOD256:POKEP+1,A256:POKEP+2,0:FORI=0TOD-1:DEFSEG=S:B=PEEK(AD+I):DEFSEG=0:POKED9+I,B:IFI MOD128=0THENPRINT"*";
  6. 45 NEXT
  7. 50 BEEP:END
  8. 100 X=PEEKP+PEEK(P+1)*256:RETURN
  9. 200 POKEP,X MOD256:POKEP+1,X256:RETURN